home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).zip
/
Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).adf
/
MF-Pascal_0.2
/
hello.p
< prev
next >
Wrap
Text File
|
1990-02-23
|
800b
|
38 lines
program hello(input,output);
const
txt1 = "Hello world!";
pie = 3.141569;
einhalb = 0.5;
type
farbe = (karo, herz, pik, kreuz);
point = record
x,y : integer;
end;
var
i, j: integer;
f1,f2,f3: boolean;
ia: array [2..5] of array [0..4] of integer;
r: real;
karte: farbe;
start: point;
begin
f1 := (1 > 2) or (1.5 = 2.5) and (1+5 div 2 <= 3*4);
start.y := 1;
start.x := 3;
i := start.x+start.y;
ia[start.x,start.y] := i;
j := i div 2;
ia[j,j] := ia [3,1] - j;
karte := herz;
i := 17+4+3+8-(2*3);
j := 2*i;
r := 17.0+4.0+3.0+8.0-(2.0*3.0);
writeln(txt1);
writeln("i =",i," j =",j);
writeln("ia[2,2] =",ia[2,2]);
writeln("r =",r);
writeln(output,"Nun dies :",17,24.9,17+4,17.5+3.5);
writeln("Pie =",pie);
end.